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hear hobert Oabrtx: 

Uhanh goa very, mu.ci for ptaetng my. add tn y-ou.tr j,ournah. 3 /iai/e 
enetoxed a c itfferent ad 'that. 3 ho pe you. can. place -On. AAe iMue, 

Uhtx one. tx a photoxtat and xhoutd reproduee better . J Aave xome 
one. worhhng on a be.tt.e.tr drawhng of- a egetopx and oueratt appearance 
o f- -tAe ad ttxetf. A Xmatte r 4.iz.a too. 

3 he, caddetta enetoxed hax the. graphtex program. Vtdeo : Vtdeo 
that the Arcadtan tx uie.te.ome. to prtnt. 3t tx ba-x.te.atty. an eK.tenX.to n 
of tex.-x.on 7 of- AAe manuat 6004. A dhfferent phot formutu u/ax. axed 
tn u/hteh X & ij vary.. Very. eompteK, patternx appear uitth a vatue 1 
for eiiery. watue of Z tn ttne 4. Dhexe tahe a aery. tong, ttme to 
draw Xo Z oar hex between 2 and 5. Another dtfferenee tx that att 
ttnex return to 0, 0 before behng drawn to the o ppo xhte end of the 
xereen. 

3 1 tt do mg bext to have artotlter program for goa bg the end of 

I Hag. 



Stneeretg, 




Fred Rodney 




1 . VIDEO : VIDEO . 1 

2 . FRED RODNEY , 1984 . 2 

3 NT=0; CLEAR ;&(9)=-10;F0 
R N-130T0 -130BTEP -10;BC= 
246 ; FC=0 ; GOLUB 4;BC=0;FC=7 
; GOSUB 5; GOTO 6 

4 L=ABB(N) ;Z=5-3x(N<0) ;FO 
R X=-L+ZTO LBTEP Z;LINE 0, 
0,4; LINE X , ABB ( X)-L, 3 ; LINE 

0,0,4; LINE -X , L-ABS ( X ) , 3 ; 
NEXT X 

5 FOR Q=OTO 3xAB3(N) ;NEXT 
Q; RETURN 

6 BC=7 ; FC=0 ; GOBUB 5;&(0)= 
7;&(l)=7;dt(2)=0;6((3)=0;BC = 
Q : FC = 7 ; & ( 9 ) =84 ; GOSUB 5; BOX 

-40 ,22,80, 44 , 3 ;BOX 40,-22 
,80, 44, 3; GOBUB 5;FC=0 

7 BC=246 ;<i(0)=55;&(l)=55; 
GOBUB 5;FC=67:&(2)=235;&(3 
) =235 ; GOBUB 5 ; FC=0 ; &( 2 )=0 J 
& ( 3 ) =0 ; BOX -40,22,80,44,3; 
BOX 40,-22,80,44,3 

8 GOBUB 5 ;<& ( 9 ) =-10 ; BC=55 ; 
GOBUB 4; IF N<OGOTO 12 

9 IF N=OFOR L=3T0 156BTEP 
4 ; BC=RND (243) ;FC=BC+12;B 

OX 0, 0, L, L+2 ,3 ;NEXT L;CLEA 
R ; NEXT N 

10 LINE 0,0,4;BC=127 ; FOR C 
=1T0 3BTEP 2; FOR X=-L+2T0 
L4-2STEP C +2+1: LINE X,ABS(X 
) -38, C; LINE 0,0, C 

11 LINE -X, 38-ABB (X) ,C ; LIN 
E 0,0, C ;NEXT -X; GOBUB 5;NEX 
T C;FOR L=OTO 5; BOX 0,0,13 
7, 77, 3; GOSUB 5;NEXT L;GOBU 
3 5; CLEAR ;NEXT N 

12 LINE 0,0,4;BC=127 ; FOR X 
=-L+5T0 L+5;LINE X,ABB(X)- 
26,1+(X>0) ;LINE 0,0,1; LINE 

-X,26-ABS(X) ,1+(X>0) ; LINE 
0,0,1; NEXT X; GOSUB 5; FOR 
L=OTO 9 

13 BOX 0,0, Lx2+Xx2 , 66 , 3 ; GO 
SUB 5; NEXT L; GOSUB 5; CLEAR 

;NEXT N ; BC=55 ; N=-230 ; GOSU 
B 4 ; BC=0 ; FC=246 ; GOSUB 5; GO 
SUB 4 

14 PRINT ; FOR L=QTO 2;BC=R 
ND (243) ;FC=BC+12; LIST ,2; 
NEXT L ; BC=0 ; FC=7 ; FOR L=OTO 

44 ; BOX 0,4,160,19,3; NEXT 
L;N=333 ; GOSUB 5;RUN 



15 FOR X=— 130T0 130; LINE 0 
,0,1; LINE X, ABS (X)-130,4;L 
INE 0,0,1; LINE -X, 130-ABS ( 

X) , 4 ;NEXT X;BOX 0,0,160,35 
, 2 ;CY=4 ; LIST ,2;B0X 0,0,15 
6,31 3 ;: PRINT 

This is a graphics only program. No sound. It 
takes about 16 minutes to run and will contin- 

ally re-cycle itself. So before running this 
program, turn on the radio or put your favo- 
rite record on and enjoy the "Video." 

On the Astrocade screen, with 0,0, at its 
center, the formula N=ABS(X)+ABS(Y) will re- 
sult in a diamond wnose points will be at a 
distance of N & -N from 0,0, Plotting lines 
to all pixels between these four points 
should yield a solid diamond. But the Astro- 
cade only draws a straight line when X=Y, 

X=0 or Y=0. At all other times, the line 
will assume a "stair-case" shape. This 
shaped line will miss some pixels as X & Y 
vary between N and -N. The line will be a 
mirror image of itself if the vector of the 
plot is reversed. The pixels that are skipped 
or re-drawn (LINE X,Y,3) result in a top- 
bottom, right-left symmetrical image within a 
diamond-shaped border. 

If N is varied between -130 and 130 (the 
LINE command is not limited by the screen 
border as is the BOX command) the diamond 
will completely fill the screen. The pro- 
gram begins at this point and a series of 
lines are drawn to every 5th pixel. As N 
decreases, smaller and smaller diamonds are 
drawn. These alternate with similar patterns. 
When N=0 a short BOX routine follows. When 
N.<0 lines are drawn to the diamonds border 
(every other pixel) with % tighter spacing 
alternating with similar patterns. Finally, 

When N is set to more than 130, a patterned 
"X" appears as in Line 13 • 

Subroutine 5 is * variable delay (varies 
with pattern si z e)t The bulk 01 the program 
that remains involves changes to the colors 
and &(9) s® that the patterns are highlighted 
in different ways. The redrawing of a pattern 
over itself (LINE X,Y,3) will erase the pattern 
line by line. 

Save on tape with CLEAR ;GOTO 15 GO. When 
the corners are filled, start the tape (re- 
cord) and a nice looking title page will 
be on tape. The program uses 1005 bytes. 
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